home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 5 / QRZ Ham Radio Callsign Database - Volume 5.iso / files / mac / chess_hc.hqx / Chess Stack1.0 / ChessStack V1.0 / card_4081.txt < prev    next >
Encoding:
Text File  |  1988-06-28  |  1.8 KB  |  75 lines
  1. -- card: 4081 from stack: in.0
  2. -- bmap block id: 7007
  3. -- flags: 4000
  4. -- background id: 3239
  5. -- name: Title
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=369 top=268 right=309 bottom=466
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Start
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global communicationsMode
  23.   if (card field "cm" of card "Options") is "Packet" then
  24.     if (card field "hamID" of card "Options") is empty or (card field "TncBaudRate" of card "Options") is empty then
  25.       play "no use"
  26.       repeat while the sound is not "done"
  27.       end repeat
  28.       answer "Must set options first!"
  29.     else
  30.       play "now"
  31.       repeat while the sound is not "done"
  32.       end repeat
  33.       visual effect dissolve
  34.       go to card "Main"
  35.     end if
  36.   else
  37.     if (card field "cm" of card "Options") is "Modem" then
  38.       if (card field "PhoneNumber" of card "Options") is empty or (card field "ModemBaudRate" of card "Options") is empty then
  39.         play "no use"
  40.         repeat while the sound is not "done"
  41.         end repeat
  42.         answer "Must set options first!"
  43.       else
  44.         play "now"
  45.         repeat while the sound is not "done"
  46.         end repeat
  47.         visual effect dissolve
  48.         go to card "Main"
  49.       end if
  50.     end if
  51.   end if
  52. end mouseUp
  53.  
  54.  
  55.  
  56. -- part 3 (button)
  57. -- low flags: 00
  58. -- high flags: A003
  59. -- rect: left=30 top=269 right=312 bottom=131
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Set Options
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   visual effect iris open
  71.   push card
  72.   go to card "Options"
  73. end mouseUp
  74.  
  75.